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CHAPTER 1 
GEMPLT OVERVIEW 


GEMPLT is a general plotting subroutine package which provides the 
applications programmer with device independent line drawing 
capabilities. It has been designed to simplify the plotting of 
meteorological data. New graphic devices can be added easily. 

GEMPLT allows plotting in a variety of coordinate systems. The 
transformations from one coordinate system to another are handled 
internally. Lines, text, markers, wind barbs and arrows can be 
plotted in any coordinate system. Utility functions to draw 
contours, streamlines and geopolitical maps are available. 

GEMPLT has been designed to be extremely flexible for applications 
p r o g r a nine rs developing either single progr ams or large 
applications systems. Programs can be written that are 
independent of graphics device and map projection, both of which 
can be selected at run time. New features, coordinate systems and 
graphics devices can be added easily without affecting existing 
applications programs. 

The GEMPLT subroutines communicate with two subprocesses which are 
maintained as separate modules. Coordinate transformations and 
utility functions are included in the first subprocess called 
GPLT. The second subprocess is a device driver which draws lines, 
text and symbols. The device characteristics which are needed by 
GPLT are defined in the device driver. A new device driver must 
be written for each graphics device. Since the subprocesses can 
r ema in active after an applications progr am exits, plotting 
characteristics defined in one program may be used in other 
programs that follow it in the same session. 

This document provides information for an applications programmer. 
An introduction to GEMPLT subroutine descriptions and examples are 
included . 
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CHAPTER 2 

INTRODUCTION TO GEMPLT 


This chapter provides a brief description of the GEMPLT functions. 
Required logical name assignments are described in an appendix. 


2.1 INITIALIZATION AND TERMINATION 


GINITP must be the first GEMPLT subroutine called by each program. 
The first time GINITP is called, the GPLT task is installed. A 
call to GINITP in later programs is required to establish 
communications with GPLT. When GINITP is called, a mode must be 
specified. Mode 1 indicates plotting will be in earth 
( 1 a t i tud e / 1 ong i tud e ) coordinates. Mode 2 is used for drawing grap 
(x/y) plots. Graphs may not be defined or drawn in earth mode; 
map projections may not be defined or plotted in graph mode. The 
transformations for both earth and graph are retained in GPLT. I 
the mode is changed, the appropriate transformation is activated. 

GENDP should be the last GEMPLT subroutine called by each 
application program. It will cause any data buffered internally 
by GEMPLT to be flushed. An option exists to stop the GPLT and 
device driver subprocesses. 


2.2 CONTROL OF PLOTTER SPACE 


The graphics device to be used for plotting is specified by a call 
to GSDEV , which installs the device driver as a separate process. 
This subroutine must be called before any plotting is done. Some 
transformations cannot be defined until GSDEV is called. 

GSVIEW allows the user to specify a view region. The view region 
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is specified in fractions fromO to 1. The point (0,0) is the 
lower left of the plotter space; (1,1) is the upper right corner. 
Thus the upper right quadrant can be selected by placing the lower 
left corner of the view region at (.5, .5) and the upper right 
corner at (1,1). Note that, except for square devices, these 
fractional units are not the same as the normalized coordinates 
defined later. 

The programmer may also control the plotter space by defining 
margins. GSMMGN defines margins for plotting in map projections; 
GSGMGN defines margins for graphs. No margins will be used when 
plotting on satellite imagery. The margins in effect when the M 
coordinate system is defined will be used until the coordinate 
system is redefined. Later calls to the margins will have no 
effect until the coordinate system is redefined. Margins may be 
defined as fractions for the entire graphics region or as 
mu ltiples of the text size. 


2.3 COORDINATE SYSTEMS 


GEMPLT uses four coordinate systems which are organized in a 
hierarchical structure. These coordinate systems are described 
brieflyhere. 

o D coordinates are the actual device coordinates. 

o N coordinates are normalized device coordinates. N coordinate 
limits range from 0.0 to 1.0 along the longest dimension and 
from 0.0 to a value less than or equal to 1.0 on the other 
axis. These limits are determined using a linear scaling of 
the device coordinates. Correction for the aspect ratio of the 
pixel is included in the transformation from D to N 
coordinates . 

View regions and margins may be specified in GEMPLT. Use of 
these parameters allows two clipped versions of N coordinates: 

o V coordinates, view coordinates, are the same as normalized 
coordinates but the clipping boundaries correspond to the 
v i e w region. 

o P coordinates, plot coordinates, are the same as normalized 
coordinates but the clipping boundaries correspond to the 
region inside the margins. 

o M coordinates are the earth or graph coordinates in which plot 
locations are generally specified. Ma p projection functions 
transform any point on the earth into a (possibly infinite) 
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olane a subregion of which is scaled to the normalized 
coordinate system for display on the output device. Clipping 
boundaries are the same as for plot coordinates. 

o G coordinates are grid coordinates. This coordinate system 
defines the projection on which a grid was cr ated. iicin/the 
is assumed to be evenly spaced in this projection. Using 
inverse of the standard map or graph projection functions, 
grid point coordinates can be translated into eart 
coordinates. The grid projection is independent of the map 
coordinate projection. Clipping is the same as for plot 
coordinates . 

In addition, the plane into which M coordinates are 

defines an L coordinate system of linear coordinates. Since these 
are different for each projection, they are not generally y 

the applications programmer. 

GQBND can be called to query the limits of any coordinate system. 
The bounds of the M and G regions are estimates of the maximum 
minimum values of the coordinates along each side. 


GTRANS will 
sy s t em into 


translate 
any other 


a list of 
sy s t em. 


x ,y 


points from any coordinate 


2.4 ATTRIBUTES 


Attribute subroutines a 1 1 ow pi o 1 1 i ng characteristics to be 
modified and queried. Subroutines are available to change line, 
text, marker and wind symbol attributes. Color modification 
subroutines are described separately. 

The line attributes are set in GSLINE . Line type specifies the 
dashing pattern. Line width may also be specified. Flags to 
change from software to hardware functions for generating line 
types and widths are available. 

GSTEXT is used to define the text font, text size mu ltiplier, 
text width, and a flag specifying generation of software or 
h a r d wa re text. 

GSMRKR sets marker characteristics including marker number, 
software/hardware marker fla&, marker size multiplier and marker 
wi d th . 

GSBARB and GSARKW set the wind barb and the arrow attributes. 
GSWTHR sets weather symbol characteristics including size and 
width . 
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If a hardware function is specified for a device on which it is 
unavailable, the software function will be substituted 
automatically. The attributes that will be used can be obtained by 
calling the corresponding query subroutine. If a har d wa re flag is 
set and the hardware function is available, it will be used even 
if other attributes, such as size, must be modified. Note that the 
hardware option for many graphics devices will not draw dashed 
lines well when a long series of short line segments is drawn. 

Such short segments are generally used for drawing maps and 
contours. 


2.5 PLOTTING FUNCTIONS 


The basic GEMPLT plotting functions are the generation of lines, 
text, markers, wind and other meteorological symbols. 

The location for each symbol is given by its x,y position and 
coordinate system. For plotting in earth coordinates, latitude 
and longitude replace x and y. The units and clipping boundaries 
are dependent on the coordinate system. In each case, the input 
coordinates are translated to device coordinates for plotting and 
clipping. The marker center, the first character of a text string 
and the base of a wind barb or arrow will be plotted at the given 
location. 6 


2.6 UTILITIES 


GEMPLT utility functions are implemented to perform complex 
plotting functions. Contours, streamlines and geopolitical maps 
canbeplotted. r 

The name of the map file to be used can be changed using GSMFIL. 
The default map is a medium resolution map. GQMFIL is used to 
query the current map file name. 


2 . 7 COLOR 


GSCOLR and GQCOLR can be used to set and query the color using 
color numbers. Colors are specified by numbers from 1 to N 
where N is the number of colors defined for a particular device. 
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If a progr am requests a color n umb er larger than available on the 
the current device, the color used will correspond to that of the 
the requested number modulo-N. 

Subroutines are available to change the color components of a 
graphics plane on devices where this feature is available. The 
color components may be specified as red, green and blue 
intensities (RGB), as hue, lightness and saturation (HLS) or by 
name. Names are kept in a GEMPLT text file which may be modified 
by a GEMPLT systems programmer. 


2 . 8 ERRORS 


All GEMPLT subroutines send back a return code called IRET. The 
normal value, indicating that no error was encountered, is 0. All 
other error numbers are negative and indicate that the subroutine 
did not execute normally. The substitution of software functions 
for hardware functions which are requested, but not available, is 
not considered an error. 

Programmers who prefer to check for error within programs by using 
parameter names should include the following file in the program 
declarat i ons : 


GEMI NC: ERROR. PRM 

The parameter name for the 0 error code is NORMAL. 

Error messages may be printed using the subroutine GERROR. A list 
of error messages and names is given in an appendix. 
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GAAXIS 


Draw Axes With Alphanumeric Labels 


This subroutine draws a graph background with labels, tick marks, 
and grid lines. The graph coordinates must be defined by a call’to 
GSGRAF before this subroutine is called. 


The axis line will 
be set in GSTICK. 


be 


Line attributes apply to grid lines, 
solid line. Tick mark attributes can 

The label string (CHARY) and position (AXARY ) arrays are allowed a 
maximum of 530 elements. Each CHARY element 
char a c t e r s . 


may contain up to 24 


LBFRQ, MTFRQ and LGFRQ are specified in the form FF where 
FF is the frequency with which to plot items in the AXARY 

F° r example, LBFRQ = 3 plots every third element 
of CHARY beginning with the first, that is, CHARY (l) at 

AXARY (1), CHARY (4) at AXARY (4), CHARY (7) at AXARY (7) and 
soon. ’ 

In a polar coordinate system, the axis is not drawn. When 

1 01 3 ’ grid lines are circles with the radii specified 
in AXARY. When IAXIS is 2 or 4, AXARY specifies the angle for 
ay r* a * which are drawn from the center of the circle to 

AXPOS . Tick marks are not dr awn in polar coordinates. 

Except for CHARY, GAAXIS is identical to GDAXIS. 

GAAXIS ( IAXIS, AXPOS, LAXIS, LBFRQ, MTFRQ, LGFRQ, NP 
AXARY, CHARY, I RET ) 

Input parameters: 


IAXIS 

INTEGER 

Ax i s 

1 = x axis labelled bel o w 

2 = y axis labelled left 

3 = x axis labelled above 

4 = y axis labelled right 

AXPOS 

REAL 

Intersection with other axis 

LAXIS 

LOGICAL 

Ax is dr aw flag 

LBFRQ 

INTEGER 

Frequency of labels 

MTFRQ 

INTEGER 

Frequency of tick marks 

LGFRQ 

INTEGER 

Frequency of grid lines 

NDEC 

INTEGER 

# of decimal places in labels 
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NP 


INTEGER 

Number of values in AXARY 

AXARY 

(NP) 

REAL 

Locations on other axis 

CHARY 

(NP) 

CHAR* 24 

Label strings 


Output parameters: 

IRET INTEGER Return code 
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GARKW - Plot Arrows 


This subroutine draws wind arrows at points defined in any 
coordinate system. The length of the arrow is proportional to 
speed, and its orientation is relative to local north. If the 
arrows are not plotted on a map projection, local north is 
assumed to be vertical. By convention, the direction is the 
direction from which the wind is blowing. The arrows will be 
drawn using attributes defined in GSARKW. 

GARKW ( SYS, NP, X. Y, SPD. DIR. IRET ) 


Input parameters: 


SYS 

CHAR* 

NP 

INTEGER 

X (NP) 

REAL 

Y (NP) 

REAL 

SPD (NP) 

REAL 

DIR (NP) 

REAL 

Output parameters 

: 

IRET 

INTEGER 


Coordinate system 

’D’ = device coordinates 

* N* = normalized coordinates 

" V * = v i ew coordinates 

'P* = plot coordinates 

’M* = map coordinates 

9 G* - grid coordinates 

Number of arrows 

X coordinates / latitudes 

Y coordinates / longitudes 

Wind speeds 

Wind directions 


Return code 
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GBARB - Plot Barbs 


This subroutine draws wind barbs at points defined in any 
coordinate system. The orientation is relative to local north. 
If the barbs are not plotted on a map projection, local north is 
assumed to be vertical. By convention, the direction is the 
direction from which the wind is blowing. The barbs will be 
drawn using attributes defined in GSBARB. 

GBARB C SYS. NP . X. Y. SPD. DIR. IRET 


Input parameters: 


SYS 

CHAR* 

NP 

INTEGER 

X (NP) 

REAL 

Y (NP) 

REAL 

SPD (NP) 

REAL 

DIR (NP) 

REAL 

Output parameters 

• 

IRET 

INTEGER 


Coordinate system 

’D’ - device coordinates 

* N " = no rma lized coordinates 

* V 9 - v i ew coordinates 

, P > - plot coordinates 

'M* « map coordinates 

'G* - grid coordinates 

Number of barbs 

X coordinates / latitudes 

Y coordinates / longitudes 

Wind speeds 

Wind di r ect i ons 


Return code 
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GC I RCL - Dr aw Circle 


This subroutine draws a circle centered at a point which may 
be defined in any coordinate system. The radius of the circle, 
RAD, must be given as a distance in normalized coordinates. 

NP is the number of points to be used in drawing the circle. 

If NP is zero, 10 points will be used. 


GCIRCL ( SYS, X, Y, RAD, NP , 
Input parameters: 


SYS 

CHAR* 

XPT 

REAL 

YPT 

REAL 

RAD 

REAL 

NP 

INTEGER 

Output parameters 


IRET 

INTEGER 


I RET ) 


Coordinate system 

’D’ = device coordinates 

’ N ’ = no rma lized coordinates 

’ V ’ = v i ew coordinates 

’P’ = plot coordinates 

’M’ = map coordinates 

’G’ = grid coordinates 

X coordinate / latitude 

Y coordinate / longitude 

Radius in N coordinates 

Number of points on circle 


Return code 
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GCLDHT - Set Cloud Height For AOIPS NAV 

Th is subroutine sets the cloud height to be used in the AO IPS 
satellite projection. A call to GSATAO will reset the height to 0. 
Height is given in kilometers. 

GCLDHT ( HEIGHT, I RET ) 

Input parameters: 

HEIGHT REAL Cloud height 

Output parameters: 

IRET INTEGER Return code 
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GCLEAR - Clear Plot Frame 


This subroutine clears the current device. On a d 
device, GCLEAR erases the screen. On a continuous 
GCLEAR will advance to the next page. On a single 
GCLEAR will unload the paper so another sheet can 

GCLEAR ( I RET ) 

Ou t pu t par ame t e r s : 

IRET INTEGER Return code 


irect-access 
-pape r plotter, 
-page plotter, 
be loaded. 
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GCLOSP - Close Plot File 


This subroutine closes any intermediate plot 
sequential access type device. When plotting 
new file will be opened. No action is taken 
does not use an intermediate plot file. 


file used by a 
i s cont inued , 
if the current 


GCLOSP C I RET ) 

Output parameters: 

IRET INTEGER Return code 


a 

device 
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GCONTR - Draw Contours 


This subroutine draws 
coordinate system and 
before this subroutine 
is 125 x 125. The max 
MISFLG is set, data wi 
adjacent points. Cont 
lower left corner at ( 
( IMAXX , JMAXY ) . If the 
be used. 


contours through a grid of data. A grid 
a map/graph transformation must be defined 
is called. The maximum size of the subgrid 
imum number of contour levels is 50. If 
11 be interpolated/extrapolated from the 
ours will be computed for a subgrid with the 
IMINX, JMINY) and an upper right corner at 
se values are all 0, the entire grid will 


GCONTR ( KX, KY, GRID, 
LABEL, ICOLR, 


IMINX, JMINY , IMAXX, JMAXY, NLVL , CLVL , 
ILTYP , ILWID , MISFLG, I RET ) 


Input parameters: 


KX 

INTEGER 

Number of x grid points 

KY 

INTEGER 

Number of y grid points 

GRID ( KX , K Y ) 

REAL 

Gr id data array 

IMINX 

INTEGER 

First x point of subgrid 

JMINY 

INTEGER 

First y point of subgrid 

IMAXX 

INTEGER 

Last x point of subgrid 

JMAXY 

INTEGER 

Last y point of subgrid 

NLVL 

INTEGER 

Number of contour levels 

CLVL (NLVL) 

REAL 

Contour level values 

LABEL (NLVL) 

INTEGER 

Contour label types 

ICOLR (NLVL) 

INTEGER 

Contour color numbers 

ILTYP (NLVL) 

INTEGER 

Contour line types 

ILWID (NLVL) 

INTEGER 

Contour line widths 

MISFLG 

LOGICAL 

Data interpolation flag 


Output parameters: 


I RET 


INTEGER Return code 
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GCTYP - Plot Cloud Type Symbols 


This subroutine draws cloud type symbols defined in any coordinate 
system. The cloud type symbols will be drawn using attributes 

defined in GSCTYP . 

Note that this subroutine is currently not implemented. 


GCTYP ( SYS, NP, CTCOD , X, Y, 
Input parameters: 


SYS 

CHAR* 

NP 

INTEGER 

CTCOD (NP) 

REAL 

X (NP) 

REAL 

Y (NP) 

REAL 

IXOFF (NP) 

INTEGER 

IYOFF (NP) 

INTEGER 


Output parameters: 

I RET INTEGER 


IXOFF, IYOFF , I RET ) 


Coordinate system 

’D’ = device coordinates 
’N’ = normalized coordinates 

’ v ’ = v i ew coordinates 

•p* = plot coordinates 

* M ’ = ma p coordinates 

’G’ = grid coordinates 

Number of cloud symbols 

Cloud type numeric code 

X coordinates / latitudes 

Y coordinates / longitudes 

X offsets in half characters 

Y offsets in half characters 


Return code 
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GCYEVL 


Evaluate Points On 


Curve 


This subroutine fits a curve to a set of input points and then 
evaluates the curve for values of x. The input points must be 
in M coordinates; the current mode must be graph mode. The 
input points must be strictly mono tonic in x: 


xa r r ay 

(1) 

< xa r r ay 

(2) < 

. . . < xarray (np) 


(1) 

o r 


xa r r ay 

> xa r r ay 

(2) > 

... > xarray (np) 


GCYEVL ( I TYPE, NP , XARRAY, YARRAY, NPOUT, XEVAL , YEVAL , 


I RET ) 


Input parameters: 


ITYPE 

INTEGER 

Type of curve 

1 - piecewise linear 

2 - cubi c spline 

NP 

INTEGER 

Number of input points 

XARRAY (NP) 

REAL 

X input coordinates 

YARRAY (NP) 

REAL 

Y input coordinates 

NPOUT 

INTEGER 

Number of evaluations 

XEVAL (NPOUT) 

REAL 

X evaluation coordinates 

Output parameters 

: 


YEVAL (NPOUT) 

REAL 

Y evaluated coordinates 

I RET 

INTEGER 

Return code 
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GDAXIS - Draw Axes With Numeric Labels 


This subroutine draws a graph axis with labels, tick marks, and 
grid lines. The graph coordinates must be defined by a call to 
GSGRAF before this subroutine is called. 

Line attributes apply to grid lines. The axis line will be a 
solid line. Tick mark attributes can be set in GSTICK. 

The label position array, AXARY, is allowed a maximum of 530 
e 1 ement s . 

If NDEC , the number of decimal places, is negative, the program 
will use an appropriate number. 

LBFRQ , MTFRQ and LGFRQ are specified in the form FF where 
FF is the frequency with which to plot items in the AXARY 
positions. For example, LBFRQ = 03 plots every third element 
of CHARY beginning with the first, that is, CHARY (1) at 
AXARY (1), CHARY (4) at AXARY (4), CHARY (7) at AXARY (7), and 
so on . 

In a polar coordinate system, the axis is not drawn. When 
IAXIS is 1 or 3, grid lines are circles with the radii specified 
in AXARY. When IAXIS is 2 or 4, AXARY specifies the angle for 
radial lines wh ich are dr awn f r om the center of the circle to 
AXPOS . Tick ma rks are not dr awn in polar coordinates. 

Except for CHARY, GAAXIS is identical to GDAXIS. 

GDAXIS ( IAXIS, AXPOS, LAXIS, LBFRQ, MTFRQ, LGFRQ, NDEC, NP , 
AXARY, IRET ) 

Input parameters: 


IAXIS INTEGER Axis 




1 « x axis 

2 - y ax i s 

3 - x ax i s 

4 « y axis 

labelled bel ow 
labelled left 
labelled above 
labelled ri ght 

AXPOS 

REAL 

Intersection 

wi th other axi: 

LAXIS 

LOGICAL 

Axis dr aw 

flag 

LBFRQ 

INTEGER 

Frequency 

of 

labels 

MTFRQ 

INTEGER 

Frequency 

of 

tick marks 

LGFRQ 

INTEGER 

Frequency 

of 

grid 1 ines 
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NDEC 

INTEGER 

NP 

INTEGER 

AXARY (NP) 

REAL 

Output parameters 

: 

I RET 

INTEGER 


# of decimal places in labels 
Number of values in AXARY 
Locations on other axis 

Return code 
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GDRGRD - Draw La t i tude/ 1 ong i tude Lines 

This subroutine draws a uniform latitude/longitude grid. The map 
projection must be defined before GDRGRD is called. The current 
color, line and text attributes will be used. The latitude and 
longitude intervals are given in degrees. 

GDRGRD ( DELLAT, DELLON , LBLFRQ, I RET ) 

Input parameters: 

DELLAT REAL Latitude interval 

DELLON REAL Longitude interval 

LBLFRQ INTEGER Label frequency 

0 = no grid labels 

1 = every grid line 

2 = every other grid line 
n = every n-th line 

Output parameters: 

IRET INTEGER Return code 
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GDRMA.P - Draw Map 


This subroutine draws a map. A map projection must be defined 
before it is called. The current color and line attributes will 
be used. The map file to be used may be specified in GSMFIL. 

GDRMAP ( I RET ) 

Output parameters: 

IRET INTEGER Return code 
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GENDP - End Use Of GEMPLT 


This 

that 

IEOP 

the 


subroutine must be the last subroutine called by any Program 
uses GEMPLT. Internal buffers will be flushed, if necessary, 
governs whether the GEMPLT subprocesses are retained, making 
current parameter definitions available in later programs. 


GENDP ( I EOP , I RET ) 


Input parameters: 

IEOP INTEGER 


End plot flag 

0 = retain GEMPLT 

1 = stop GEMPLT 


Output parameters: 

I RET INTEGER 


Return code 
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GEPLOT - End Current Plot 


This subroutine is called when a plot sequence 
Internal plot buffers will be flushed by this 
terminal will be put in user mode. 


i s c omp 1 e t e d . 
subroutine and 


the 


GEPLOT ( I RET ) 


Output parameters: 


I RET 


INTEGER Return code 
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GERROR - Write Error Message 

This subroutine writes an error message to the 
The output message will contain the word GEMPLT 
number in brackets followed by the text of the 
The error codes are listed in an appendix. 

GERROR ( NUMERR, I RET ) 

Input parameters: 

NUMERR INTEGER GEMPLT error 

Output parameters: 

IRET INTEGER Return code 


user’s t e rmi na 1 . 

and the error 
error me s s ag e . 


numb e r 
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GFLUSH - Flush Graphics Buffers 

This subroutine flushes all internal plotting buffers 
GCLOSP, and GENDP also flush buffers. GFLUSH is only 
to force display of a partial plot during a program. 

GFLUSH C I RET ) 

Output parameters: 

IRET INTEGER Return code 


GCLEAR , 
needed 
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GINITP - Initiate Use Of GEMPLT 


This subroutine initializes GEMPLT for an application program. 
GPLT subprocess is started if it has not been started by a 
previously executed program. This subroutine must be the first 
subroutine called by any program that uses GEMPLT. The MODE 
parameter determines the plotting mode for map/graph plots. 

GINITP ( MODE, ISTAT, IRET ) 


Input parameters: 

MODE INTEGER 


Ou t pu t par ame t e r s : 

ISTAT INTEGER 

IRET INTEGER 


Plotting mode 

0 = no change 

1 - map coordinates 

2 = graph coordinates 


Status code 

0 = GEMPLT started 

1 = GEMPLT previously 

s tar ted 

Return code 


The 
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GLINE - Draw Line Segments 

This subroutine draws line segments connecting an array of points 
defined in any coordinate system. The lines will be drawn using 
attributes defined in GSLINE. 

GLINE ( SYS, NP, X, Y, IRET ) 

Input parameters: 

SYS CHAR* Coordinate system 

’D’ = device coordinates 
’N’ = normalized coordinates 
’ V ’ = v i ew coordinates 
’P* = plot coordinates 
’M 1 = map coordinates 
’ G ' = grid coordinates 

NP INTEGER Number of points 

X (NP) REAL X coordinates / latitudes 

Y (NP) REAL Y coordinates / longitudes 

Ou t pu t par ame t e r s : 

IRET INTEGER Return code 
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GMARK - Plot Markers 


This subroutine draws markers at points defined in any 
coordinate system. The markers are centered at the specified 
locations. The markers will be drawn using attributes 
defined in GSMRKR . 

GMARK ( SYS, NP , X, Y, IRET ) 

Input parameters: 

SYS CHAR* Coordinate system 

’D* = device coordinates 

* N 1 = no rma lized coordinates 

* V * = v i ew coordinates 

’P’ = plot coordinates 

’M’ = map coordinates 

’G’ = grid coordinates 

NP INTEGER Number of markers 

X (NP) REAL X coordinates / latitudes 

Y (NP) REAL Y coordinates / longitudes 

Ou t pu t par ame t e r s : 

IRET INTEGER Return code 
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GOUTP - Output Plot 


This subroutine sends the output from an intermediate plot file 
to the graphics device. If a plot file is currently open, the 
file will be closed and sent to the plotter. If no plot file 
is open, the most recent plot file will be sent to the plotter. 
No action is taken if the current device does not use an 
intermediate plot file. 

GOUTP ( I RET ) 

Output par ame t e r s : 

IRET INTEGER Return code 
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GPTND - Plot Pressure Tendency S ymb o 1 s 


This subroutine draws pressure tendeney symbol : . defin e( d in any 
coordinate system. The pressure tendency symbols will be drawn 
using attributes defined in GSPTND. 


Note that this subroutine is currently not implemented. 


GPTND ( SYS, NP , PTCOD, X, Y, IXOFF, IYOFF, IRET ) 
Input parameters: 


SYS 


CHAR* 

Coordinate system 

’D’ = device coordinates 

’N’ = normalized coordinates 

> y ' = v i ew coordinates 

’P’ = plot coordinates 

’M’ = map coordinates 

’G’ = grid coordinates 

NP 


INTEGER 

Number of pressure tendency 
s ymb o 1 s 

PTCOD 

(NP) 

REAL 

Pressure tendency numeric code 

X (NP) 


REAL 

X coordinates / latitudes 

Y (NP) 


REAL 

Y coordinates / longitudes 

IXOFF 

(NP) 

INTEGER 

X offsets in half characters 

IYOFF 

(NP) 

INTEGER 

Y offsets in half characters 

Output parameters 



IRET 


INTEGER 

Return code 
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GPTVIS - Check For Visible Points 


This subroutine returns a logical array indicating whether the 
input points are within the bounds of the map/graph to be plotted. 

GPTVIS ( SYS, NP, X, Y, VIS, IRET ) 

Input parameters: 


SYS CHAR* 


NP INTEGER 

X (NP) REAL 

Y (NP) REAL 

Ou t p u t par ame t e r s : 

VIS (NP) 

IRET 


LOGICAL 

INTEGER 


Coordinate system 

’D’ = device coordinates 

’ N’ = normalized coordinates 

’V’ = view coordinates 

’P’ = plot coordinates 

’M’ = map coordinates 

’G’ = grid coordinates 

Number of points 

X coordinates / latitudes 

Y coordinates / longitudes 


Vi sible flags 
Return code 
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GPWTH - Plot Past Weather Symbols 

This subroutine draws past weather symbols defined in any 
coordinate system. The past weather symbols will be drawn using 
attributes defined in GSPWTH. 

Note that this subroutine is currently not implemented. 

GPWTH ( SYS, NP, IPVWX>D, X, Y, IXOFF, IYOFF , I RET ) 


Input parameters: 


SYS 


CHAR* 

Coordinate system 

’D* = device coordinates 

9 N * = no rma lized coordinates 

* V ’ = v i ew coordinates 

’P’ = plot coordinates 

’M’ = map coordinates 

*G’ = grid coordinates 

NP 


INTEGER 

Number of past weather symbols 

PWCOD 

(NP) 

REAL 

Past weather numeric code 

X (NP) 


REAL 

X coordinates / latitudes 

Y (NP) 


REAL 

Y coordinates / longitudes 

IXOFF 

(NP) 

INTEGER 

X offsets in half characters 

IYOFF 

(NP) 

INTEGER 

Y offsets in half characters 

Output parameters 

♦ 


I RET 


INTEGER 

Return code 
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GQARRW - Query Wind Arrow Attributes 

This subroutine returns the current wind arrow size, arrow head 
size, line width and wind arrow type. 

NOTE THAT THE CALLING SEQUENCE OF THIS SUBROUTINE HAS CHANGED FROM 
PREVIOUS VERSIONS OF GEMPAK. 

GQARRW ( SZARRW, SZARRH, IAKWID, I ARTY P, I RET ) 

Output parameters: 

SZARRW REAL Wind arrow size multiplier 

SZARRH REAL Wind ar r o w head size mu ltiplier 

IAKWID INTEGER Wind arrow line width 

IARTYP INTEGER Wind arrow type 

1 - plot arrow for calm wind 

2 - don't plot for calm wind 

IRET INTEGER Return code 
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GQBARB - Query Wind Barb At t r i b 

This subroutine returns the curre 
and barb type. 

NOTE THAT THE CALLING SEQUENCE OF 
PREVIOUS VERSIONS OF GEMPAK. 

GQBARB ( SZBARB , IBKWID, IBRTYP , 

Output par ame t e r s : 


SZBARB 

REAL 

IBKWID 

INTEGER 

IBRTYP 

INTEGER 

IRET 

INTEGER 


1 1 e s 

Lt wind barb size, line width, 
THIS SUBROUTINE HAS CHANGED FROM 
I RET ) 

Wind barb size multiplier 
Wind barb line width 
Wind barb type 
Return code 
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GQBND - Query Coordinate Bounds 


This subroutine returns the boundaries of the specified 
coordinate system. For the linear coordinate systems (D,N,V,P), 
the lower left and upper right corners are returned. For M 
coordinates, an estimate of the minimum and maximum range of 
latitude and longitude in the plot are returned. For G 
coordinates, the minimum and maximum grid points which will 
be displayed in the plot area are returned. 

GQBND ( SYS, XL, YB , XR, YT, IRET ) 

Input parameters: 

SYS CHAR* Coordinate system 

= device coordinates 
'N' = normalized coordinates 
* V ’ = v i ew coordinates 
’P’ - plot coordinates 
= map coordinates 
’G’ = grid coordinates 

Output par ame t e r s : 


XL 

REAL 

Lowe r 

left x / 

latitude 

YB 

REAL 

Lowe r 

left y / 

1 ong i t ud e 

XR 

REAL 

Upper 

right x / 

1 a t i tude 

YT 

REAL 

Upper 

right y / 

1 ong i tude 

IRET 

INTEGER 

Return 

code 
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GQCOLR 

- Query Color Number 


This subroutine returns the current 

GQCOLR 

( ICOLR, IRET ) 


Output 

par ame t e r s : 


ICOLR 

INTEGER 

Co 

I RET 

INTEGER 

Re 


color numb e r * 

lor number 
turn code 
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GQCCMP - Query Color Components 


This subroutine returns the components corresponding to a color 
number. The red, green and blue components along with the hue, 
lightness and saturation values are returned. If the color was 
defined by name, the color name is also returned. All the color 
values are defined in the range 0-1. 

GQCCMP ( ICOLR , COLOR, RED, GREEN, BLUE, HUE, CLIGHT, SAT, I RET ) 
Input parameters: 


ICOLR 

INTEGER 

Output parameters 

: 

COLOR 

CHAR* 

RED 

REAL 

GREEN 

REAL 

BLUE 

REAL 

HUE 

REAL 

CLIGHT 

REAL 

SAT 

REAL 

I RET 

INTEGER 


Color number 

Color name 
Red component value 
Green component value 
Blue component value 
Hue value 
Lightness value 
Saturation value 
Return code 
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GQCTYP - Query Cloud Type Attributes 

This subroutine returns the current cloud type symbol size and 
width multipliers. 

Note that this subroutine is not currently implemented. 

GQCTYP C SZCTYP , ICTWID, I RET) 


Output parameters: 


SZCTYP 

REAL 

Cloud type symbol size 
mu ltiplier 

ICTWID 

INTEGER 

Cloud type line width 

I RET 

INTEGER 

Return code 
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GQDEV - Query Plot Device 


This subroutine returns the current plot device identifier, unit 
number and access type. If no device is set, a blank is returned. 
DEVICE has traditionally been a 2 character name, but may now 
contain up to 12 characters. 

GQDEV ( DEVICE, IUNIT, IATYP , IRET ) 

Output parameters: 


DEVICE 

CHAR* 

Plot device name 

IUNIT 

INTEGER 

Not used 

IATYP 

INTEGER 

Device access type 

1 — direct access 

2 = sequential access 

IRET 

INTEGER 

Return code 


3-34 



GEMPLT SUBROUTINES 


GQGGRF - Query Grid On Graph Projection 


This subroutine returns the current coordinate system definition 
for a grid which is evenly spaced in a graph coordinate system. 
The grid coordinate system is defined by GSGGRF . 

GQGGRF C IXTYP , IYTYP , KX, KY, XLL , YLL , XUR, YUR, IRET ) 

Output parameters: 


IXTYP 

INTEGER 

X coordinate type 

1 = linear 

2 - logarithmic 

3 - ** KAPPA (2/7) 
5 = polar (R) 

IYTYP 

INTEGER 

Y coordinate type 

1 = linear 

2 = logarithmic 

3 - ** KAPPA (2/7) 
5 = polar (THETA) 

KX 

INTEGER 

Number of x grid points 

KY 

INTEGER 

N umb er of y grid points 

XLL 

REAL 

Lower left X value 

YLL 

REAL 

Lower left Y value 

XUR 

REAL 

Upper right X value 

YUR 

REAL 

Upper right Y value 

IRET 

INTEGER 

Return code 
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GQGMA.P - Query Grid On Simple Map Projection 


Tli is subroutine returns the current 
spaced in a simple map projection. 
GSGMAP . 


definition for a grid evenly 
The grid can be defined by 


GQGMAP ( PROJ , KX, KY , DLATLL , DLONLL , DLATUR, DLONUR, I RET ) 
Output parameters: 


PROJ 

CHAR* 

Map projection name 

KX 

INTEGER 

Number of x grid points 

KY 

INTEGER 

Number of y grid points 

DLATLL 

REAL 

Lower left latitude 

DLONLL 

REAL 

Lower left longitude 

DLATUR 

REAL 

Upper right latitude 

DLONUR 

REAL 

Upper right longitude 

I RET 

INTEGER 

Return code 
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GQGMGN - Qu ery Graph Ma r g i n s 


This subroutine returns the current margins for the graph mode of 
the map/graph coordinate system. The value returned is that 
originally specified as a fraction of the vi e w region or a mu 1 1 i p 1 e 
of the text size; subsequent changes in view region or text size do 
not affect the value. 


GQGMGN 

( XL, YB, 

XR, YT, IRET ) 


Output 

pa r ame t e r s 

• 


XL 


REAL 

Left margin size 

YB 


REAL 

Bottom margin size 

XR 


REAL 

Right margin size 

YT 


REAL 

Top marg in size 

I RET 


INTEGER 

Return code 
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^QGPRJ ■ Query Grid On Map Projection 


This subroutine returns the 
for a grid evenly spaced on 
can be defined by GSGPRJ or 


current coordinate system definition 
a general map projection. The grid 
GSGMAP . 


GQGPRJ 


C PROJ, ANGLE 1 , ANGLE 2 , ANGLE 3 , KX, 
DLATUR , DLONUR , I RET ) 


KY. DLATLL , DLONLL , 


Output parameters 

: 

PROJ 

CHAR* 

ANGLE 1 

REAL 

ANGLE 2 

REAL 

ANGLE 3 

REAL 

KX 

INTEGER 

KY 

INTEGER 

DLATLL 

REAL 

DLONLL 

REAL 

DLATUR 

REAL 

DLONUR 

REAL 

I RET 

INTEGER 


Map pi 

*0 j e c t 

i on n 

iame 

Reference angle 

1 

Ref ere 

-nee ang 1 e 

2 

Re fere 

nee ang 1 e 

3 

Number 

of X 

grid 

points 

Number 

of y 

grid 

points 

Lowe r 

left 

1 a t i t 

ud e 

Lowe r 

left 

1 ong i 

tude 

Upper 

right 

1 a t i 

tude 

Upper 

right 

long 

i tude 

Return 

code 
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GQGRAF - Query Graph Coordinates 


This subroutine returns the current coordinate system definition 
for the graph plotting mode of the map/graph coordinate system. 

GQGRAF C IXTYP , IYTYP, YSZXSZ, XLM, YBM, XRM, YTM, I RET ) 

Output par ame t e r s : 


IXTYP 

INTEGER 

X coordinate type 

1 = linear 

2 = logari thmi c 

3 = ** kappa (2 / 7) 

4 - s k ew 

5 - polar (R) 

IYTYP 

INTEGER 

Y coordinate type 

1 = 1 inear 

2 = logari thmi c 

3 - ** kappa (2 / 7) 
5 = polar (THETA) 

YSZXSZ 

REAL 

Height to width ratio of 

XLM 

REAL 

Left limit of X axis 

YBM 

REAL 

Bottom limit of Y axis 

XRM 

REAL 

Right limit of X axis 

YTM 

REAL 

Top limit of Y axis 

I RET 

INTEGER 

Return code 
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GQLINE - Query Line Attributes 


This subroutine returns the current line attributes including the 
line type number, the software/hardware line type flag, the line 
width size multiplier and the software/hardware line width flag. 


GQLINE ( ILTYP , 

ILTHW, IWIDTH, 

IWHW, 

I RET ) 

Output parameters 

: 



ILTYP 

INTEGER 

Line 

type number 



0 

= no change 

ILTHW 

INTEGER 

Line 

type flag 



1 

= s o f twa r e 



2 

** h a r dwa r e 

IWIDTH 

INTEGER 

Line 

width 

iwhw 

INTEGER 

Line 

width flag 



1 

= s o f twa r e 



2 

= h a r dwa r e 

1 RET 

INTEGER 

Return code 
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GQLPAT - Qu ery Line Pattern 

This subroutine returns the software line pattern for the 
current line type. 

GQLPAT ( ILPAT , I RET ) 

Output parameters: 

ILPAT (8) INTEGER Line pattern values 

IRET INTEGER Return code 
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GQMFIL - Query Map File 


This subroutine returns the current map file name 
GDRMAP to dr aw a ma p . 


to be used by 


GQMFIL ( MAPNAM, IRET ) 


Output parameters: 


MAPNAM 

IRET 


CHAR* Map file name 

INTEGER Return code 
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GQMVlAP - Query Simple Map Projection 

This subroutine returns the current simple map projection defined 
by GSMMAP . 

GQMMAP ( PROJ , DLATLL , DLONLL , DLATUR , DLONUR , I RET ) 

Output parameters: 


PROJ 

CHAR* 

Map p 

rojection name 

DLATLL 

REAL 

Lowe r 

left 

1 a t i tude 

DLONLL 

REAL 

Lowe r 

left 

1 ong i tude 

DLATUR 

REAL 

Upper 

right 

1 a t i tude 

DLONUR 

REAL 

Uppe r 

right 

1 ong i tude 

I RET 

INTEGER 

Re tur 

n code 
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GQVMGN - Query Map Margins 


This subroutine returns the current margins used 
value returned is that originally specified as a 
region or text size multiple; subsequent changes 
text size do not affect the ma rgin size. 


in map mode . The 
fraction of view 
in vi ew region or 


GQMMGN C XL, YB, XR, YT, 
Output par ame t e r s ; 


XL 

REAL 

YB 

REAL 

XR 

REAL 

YT 

REAL 

I RET 

INTEGER 


I RET ) 

Left margin size 
B o 1 1 om ma rgin size 
Right ma rgin size 
Top margin size 
Return code 
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GQMODE - Query Map/graph Mode 


This subroutine returns the current mode for map/graph coordinate 
p 1 o 1 1 i ng . 

GQMODE C MODE, I RET ) 

Output parameters: 

MODE INTEGER Plotting mode 

0 = 

1 = 

2 = 

IRET INTEGER Return 


no change 

ma p coordinates 

graph coordinates 

code 
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GQMPRJ - Query Full Map Projection 

This subroutine returns the current map projection and bounds, 
which were defined by GSMPRJ or GSMMAP . 

GQMPRJ ( PROJ , ANGLE 1 , ANGLE 2 , ANGLE 3 , DLATLL , DLONLL , 

DLATUR , DLONUR , I RET ) 

Output parameters: 


PROJ 

CHAR* 

Map projection name 

ANGLE 1 

REAL 

Re f e r enc e ang 1 e 1 

ANGLE 2 

REAL 

Reference angle 2 

ANGLE 3 

REAL 

Reference angle 3 

DLATLL 

REAL 

Lower left latitude 

DLONLL 

REAL 

Lower left longitude 

DLATUR 

REAL 

Upper right latitude 

DLONUR 

REAL 

Upper right longitude 

I RET 

INTEGER 

Return code 
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GQMRKR - Query Marker Attributes 

This subroutine returns the current marker attributes including 
the marker number, the hardware/ sof tware flag and the marker 
size and line width. 

NOTE THAT THE CALLING SEQUENCE OF THIS SUBOUTINE HAS CHANGED FROM 
PREVIOUS VERSIONS OF GEMPAK. 

GQMRKR ( I MARK, IMKHW, SZMARK, IMKWID, IMKWID, IRET ) 

Output parameters: 


IMARK 

INTEGER 

Marker number 

IMKHW 

INTEGER 

Hardware/ sof tware flag 

1 = sof twa r e 

2 = h a r dwa r e 

SZMARK 

REAL 

Ma rker size mu ltiplier 

IMKWID 

INTEGER 

Ma rker wi d t h mu ltiplier 

IRET 

INTEGER 

Return code 
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GQPTND - Query Pressure Tendency Attributes 


This subroutine returns the current pressure tendency symbol 
size and line width* 

Note that this subroutine in not currently implemented, 
GQPTND ( SZPTND, IPTWID, IRET ) 


Ou t pu t par ame t e r s : 

SZPTND REAL 

I PTWID INTEGER 

IRET INTEGER 


Pressure tendency symbol size 
Pressure tendency line width 
Return code 
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GQPWTH - Query Past Weather Attributes 

This subroutine returns the past weather symbol size and 
line width. 

Note that this subroutine is not currently implemented. 
GQPWTH ( SZPWTH, IPWWID, IRET ) 

Output parameters: 


SZPWTH 

REAL 

Past we a t h e r 

s ymb o 1 size 

IPWWID 

INTEGER 

Past we a t h e r 

symbol width 

IRET 

INTEGER 

Return code 
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GQSATN - Query Satellite Navigation 

This subroutine returns the current satellite navigation 
info rma t i on . 


GQSATN ( NAVTYP , IMGNAM, I RET ) 
Output parameters: 


NAVTYP 

CHAR* 

Satellite navigation type 



’AO IPS ’ , ’ NPGS ’ 

IMGNAM 

CHAR* 

Satellite image name 

IRET 

INTEGER 

Return code 
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GQSKY 


- Query Sky Coverage Attributes 


This subroutine returns the current sky coverage symbol size, line 
width, and sky symbol type. 

Note that this subroutine is not currently implemented. 

GQSKY ( SZSKY, I SKTYP , ISKWID, I RET ) 

Output parameters: 


SZSKY 
I SKTYP 

ISKWID 
I RET 


REAL 

INTEGER 

INTEGER 

INTEGER 


Sky coverage size multiplier 

Sky coverage symbol type 

1 = not filled in 

2 = filled in 

Sky coverage line width 
Return code 
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GQSYSZ - Query Attribute Sizes 


This subroutine returns the current size of text, markers 
and wind barbs in terms of normalized device coordinates. 

GQSYSZ C RXSZMK , RYSZMK, RXSZTX , RYSZTX, RXSZWB , RYSZWB , IRET ) 


Output parameters 

; 


RXSZMK 

REAL 

Width of markers 

RYXZMK 

REAL 

Height of markers 

RXSZTX 

REAL 

Width of text characters 

RYSZTX 

REAL 

Height of text characters 

RXSZWB 

REAL 

Length of wind barbs if 
oriented along x axis 

RYSZWB 

REAL 

Length of wind barbs if 
oriented along y axis 

IRET 

INTEGER 

Return code 
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GQTEXT - Query Text Attributes 


This subroutine returns the text attributes including the font 
number, the text s o f twa r e/ha r dwa r e flag, and the text size/width 
mu ltipliers. 

NOTE THAT THE CALLING SEQUENCE FOR THIS SUBROUTINE HAS CHANGED FROM 
PREVIOUS VERSIONS OF GEMPAK. 

GQTEXT ( ITXFN , ITXHW, SZTEXT, ITXWID, IRET ) 

Output parameters: 


ITXFN 

INTEGER 

Font number 

ITXHW 

INTEGER 

Sof twa re /hardware fl 

1 = sof twa r e 

2 = hardware 

SZTEXT 

REAL 

Text size mu ltiplier 

ITXWID 

INTEGER 

Text line width 

IRET 

INTEGER 

Return code 
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GQVIEW - Query View Region 

This subroutine returns the current view region boundaries. 


GQVIEW 

( XLLF, YLLF, XURF, 

YURF, I RET ) 

Output 

par ame t e r s : 


XLLF 

REAL 

L owe r left x fraction 

YLLF 

REAL 

Lower left y fraction 

XURF 

REAL 

Upper right x fraction 

YURF 

REAL 

Upper right y fraction 

I RET 

INTEGER 

Return code 
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GQWIHR - Query Weather Attributes 

This subroutine returns the weather symbol size multilplier and 
width . 

GQWIHR C SZWTHR, IWTWID, IRET ) 

Output parameters: 


SZWTHR 

REAL 

Weather code 

size mu ltiplier 

IWTWID 

INTEGER 

Weather code 

line wi d th 

IRET 

INTEGER 

Return code 
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GREST 


Restore Graphics From A File 


This subroutine restores graphics from a file. The fi 
have been created using GSAVE . 

GREST ( FILNAM, I RET ) 

Input parameters: 


FILNAM CHAR* 

Output parameters: 

I RET INTEGER 


File name 


Return code 


1 e mu s t 
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GSARKW - Set Wind Arrow Attributes 


This subroutine sets the wind arrow size, arrow head 
line width, and arrow type. If these parameters are 
no changes are made. 


size, 

not positive. 


NOTE THAT THE CALLING SEQUENCE OF THIS SUBROUTINE HAS CHANGED FROM 
PREVIOUS VERSIONS OF GEMPAK. 


GSARKW ( SZARRW, SZARRH, IAKWID, IARTYP , IRET ) 


Input parameters: 


SZARRW 

REAL 

Arrow 

<=0 

size 
= no 

mu ltiplier 
change 

SZARRH 

REAL 

Arrow 

<=0 

head 
* no 

size mu ltiplier 
chang e 

IAKWID 

INTEGER 

Arrow 

<«0 

width multiplier 
- no change 

IARTYP 

INTEGER 

Arrow 

<=0 

1 - 
2 = 

type 
- no 
plot 
don ’ 

chang e 

wind for calm wind 
t plot for calm wind 


Ou t pu t par ame t e r s : 

IRET INTEGER Return code 
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GSATAO 


Select AO I PS Satellite Navigation 


This subroutine selects AOIPS-f ormat ted GOES satellite 
The navigation information will be read from the AOIPS 

s^df^T fUeS \ ThC nav *2 at i 011 file musses de n 
subdirectory as the image. 


navi ga t i on . 
image and 
the same 


Since GEMPLT will center the plot area in the 
the image must be centered in the current view 
for the overlay capabilities to work properly, 
used to modify the view region. 


current view region, 
region in order 
GSVIEW can be 


The subroutine GCLDHT can be used 
GSATAO resets the height to 0. 


t o 


set the cloud height. 


GSATAO ( IMGNAM, I RET ) 


Input parameters: 


IMGNAM CHAR * 

Output parameters: 


I RET 


INTEGER 


Satellite image name 


Return code 
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GSATNP - Select NPS Satellite Navigation 

Naval 
the 

GSATNP ( IMGNAM , I RET ) 

Input parameters: 

IMGNAM CHAR* Satellite image name 

Ou t pu t par ame t e r s : 

IRET INTEGER Return code 


This subroutine selects satellite navigation developed by the 
Postgraduate School. Files IMGNAM. LAT and IMGNAM. LON contain 
required navigation information. 
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GSAVE - Save Graphics In A File 


This subroutine saves all the graphics planes in a 
graphics may be restored to the device using GREST. 
subroutine can be used only on devices which have 
capab 1 1 i ty . 

GSAVE C FILNAM, IRET ) 

Input parameters: 


FILNAM CHAR* 

Output parameters: 

IR ET INTEGER 


File n ame 


Return code 


file. The 
This 

r eadback 
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GSBARB - Set Wind Barb Attributes 

This subroutine sets the wind barb size, line width, and barb type 
If these parameters are not positive, no changes are made. 

NOTE THAT THE CALLING SEQUENCE FOR THIS SUBOUTINE HAS CHANGED FROM 
PREVIOUS VERSIONS OF GEMPAK. 

GSBARB ( SZBARB , IBRWID, IBRTYP, I RET ) 

Input parameters: 

SZBARB REAL Barb size multiplier 

<=0 = no change 

IBRWID INTEGER Barb width multipier 

< =0 = no change 

IBRTYP INTEGER Barb type 

<=0 = no change 

Output parameters: 

I RET INTEGER Return code 


3-61 


GEMPLT SUBROUTINES 


GSCHLS - Set Color Comp on en 

This subroutine defines the c 
by specifying values of hue, 
values mu st be in the range 0 

GSCHLS ( ICOLR, HUE, CLIGHT, 

Input parameters: 


ICOLR 

INTEGER 

HUE 

REAL 

CLIGHT 

REAL 

SAT 

REAL 

tput par ame t e r s 


I RET 

INTEGER 


s By HLS 

lor corresponding to a color number 
ightness and saturation. These 

SAT, I RET ) 

Color number 
Hue value 
Lightness value 
Saturation value 

Return code 
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GSCINT - Initialize Colors To Defaults 


This subroutine initializes the colors on the current graphics 
device. Each device has its own default colors. 

GSCINT ( IRET ) 

Output parameters: 

IRET INTEGER Return code 
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GSCNAM 

- Set Co lor By 

Name 



This subroutine defines 
number by specifying a 
letters of the n ame are 
are listed bel ow : 

the color 
color n ame 
checked. 

corresponding to a color 
. Only the first three 
The currenly defined colors 

BLAck , 

GREy, 

WHI te 

, GRE e n , 

AVOcado, LTGreen, 

DKG r e e n , 

CYAn, 

BLUe , 

AQUa , 

SKY, 

LTBlue , DKBlue, 

NAVy, 

INDi g o , 

VIOlet , 

PURp 1 , 

e , RED , 

MARoon, PINk, 

DKP i nk , 

MAGen t a 

, YELlow, 

LEMon 

, GOLd, 

ORAnge, APRicot, 

DKOr ang e 

BROwn , 

GBR own , 

MUD, 

TAN, 

BEIge , BLOnd, 

SANd , 

VANiila 






GSCNAM 

( ICOLR, 

COLOR , 

I RET ) 



Input parameters: 





ICOLR 


INTEGER 

Color number 


COLOR 


CHAR* 


Color name 


Output parameters 

• 




I RET 


INTEGER 

Return code 
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GSCOLR - Set Color Number 


This subroutine sets the color number. Color numbers larger an 
the number of valid colors will be converted, via modular 
arithmetic, to a valid color number. If the color number is 
negative or zero, no change will be made. 

GSCOLR C ICOLR, I RET ) 


Input parameters: 

ICOLR INTEGER Color number 

<= 0 = no change 


Output parameters: 

IRET INTEGER Return code 
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GSCRGB 


- Set Color Components By RGB 


This subroutine defines the color corresponding to a cole 

r n 8 T w‘ V ? 1U ' S 0f *»«. M.: cole 

ponents. The color components must be in the range 0 

GSCRGB ( ICOLR, RED, GREEN, BLUE, I RET ) 

Input parameters: 


Color number 
Red component value 
Green component value 
Blue component value 

Return code 


ICOLR 

INTEGER 

RED 

REAL 

GREEN 

REAL 

BLUE 

REAL 

Output parameters 

• 

I RET 

INTEGER 


r number 
r 

- 1 . 
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GSCTYP - Set Cloud Type Attributes 


This subroutine sets the cloud type symbol attributes. If these 
parameters are not positive, no changes are made. 

Note that this subroutine is not currently implemented. 

GSCTYP ( SZCTYP , ICTWID, I RET ) 


Input parameters: 

SZCTYP REAL 

ICTWID INTEGER 

Output parameters: 

I RET INTEGER 


Cloud type symbol size 

Cloud type line width 
< = 0 = no change 

Return code 
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GS DEV 


Set Plot Dev ice 


Inither b J 0Utine - SetS the pl0t device to be used by GEMPLT If 

GSDE r 

2 h chara U t StCd device ' DEVICE has t r ad i t i ona I I^be IV l ' “ f ° r 
c er name, but may now contain up to 12 characters. 


GSDEV ( DEVICE, 
Input parameters: 

IUNIT, IRET ) 


DEVICE 

CHAR* 

Plot de vi c e 

IUNIT 

INTEGER 

Not used 

Output parameters 



I RET 

INTEGER 

Return code 
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GSGGRF - Set Grid On Graph Projection 


This subroutins dsfias. th. coordins.e system for s grid which is 
evenly spaced in a graph coordinate system. If the grid is definea 
in a polar coordinates system, the grid rows correspond to const ant 
THETA values; the grid columns correspond to constan v 
XLL, YLL, XUR and YUR correspond to the min R, min THETA, max 
maxTHETA. XLL must be greater than or equal to 0. 

GSGGRF ( IXTYP , IYTYP , KX, KY, XLL, YLL, XUR, YUR, IRET ) 


R. 
and 


Input parameters: 


IXTYP 

INTEGER 

X coordinate type 

1 - linear 

2 - logarithmic 

3 - ** KAPPA (2/7) 
5 - polar (R) 

IYTYP 

INTEGER 

Y coordinate type 

1 - linear 

2 - logarithmic 

3 - ** KAPPA (2/7) 
5 - polar (THETA) 

KX 

INTEGER 

Number of x grid points 

KY 

INTEGER 

Number of y grid points 

XLL 

REAL 

Lower left x value 

YLL 

REAL 

Lower left y value 

XUR 

REAL 

Upper right x value 

YUR 

Output parameters 

REAL 

Upper right y value 

IRET 

INTEGER 

Return code 
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GSGMAP - Set Grid On Simple Map Projection 

This subroutine defines the coordinate system for a grid which is 
evenly spaced in a simplified map projection. It is valid for 
the following map projection types: 

CED Cylindrical equidistant 

MCD Modified cylindrical equidistant 

MER Mercator 

NPS North polar stereographic 

SPS South polar stereographic 

LCC Lambert conic conformal ( Northern hemisphere ) 

SCC Lambert conic conformal ( Southern hemisphere ) 

NOR North Polar Orthographic 

SOR South polar Orthographic 

UTM Universal Transverse Mercator 

GSGMAP ( PROJ , KX, KY, DLATLL, DLONLL , DLATUR , DLONUR , I RET ) 

Input parameters: 


PROJ 

CHAR 

KX 

INTEGER 

KY 

INTEGER 

DLATLL 

REAL 

DLONLL 

REAL 

DLATUR 

REAL 

DLONUR 

REAL 


Output par ame t e r s : 

I RET INTEGER 


Map projection name 
Number of x grid points 
Number of y grid points 


Lowe r 

left 

1 a t i tude 

Lowe r 

left 

1 ong i 

tude 

Upper 

right 

1 a t i 

tude 

Upper 

right 

long 

i tude 

Return 

code 
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GSGMGN - Set Graph Margins 


This subroutine sets the margin size to be used in graph mode of 
the map/graph coordinate system. The margin sizes may be 
specified as either a fraction of the view region or as a 
multiple of the current character size. If the values entered 
are greater than 0 and less than 1, they are considered to 
be a fraction of the view region. If the values are 1 or 
greater, they are taken to be multiples of the character size 
at the time of the call to GSGMGN . The default margin size is 
zero . 

GSGMGN should be called before any plotting is done; margin 
size should not be changed after plotting has begun. If size is 
specified in terms of character size, the text size at the 
time of the call is used. Later changes to the size will not 
affect the margins. 


GSGMGN ( XL, YB , 

XR, YT, IRET ) 


Input par ame ters: 



XL 

REAL 

Left ma rgin size 

YB 

REAL 

Bottom margin size 

XR 

REAL 

Right ma rgin size 

YT 

REAL 

Top marg in size 


Ou t pu t par ame ters : 

IRET INTEGER Return code 
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GSGPRJ - Set Grid On Map Projection 

This subroutine defines the coordinate system for a grid which 
is evenly spaced on a general map projection. Information about 
map projections is given in GSMPRJ . 

GSGPRJ ( PROJ , ANGLE 1 , ANGLE 2 , ANGLE 3 , KX, KY, DLATLL , DLONLL , 
DLATUR , DLONUR , I RET ) 

Input parameters: 


PROJ 

CHAR* 

Map projection name 

ANGLE 1 

REAL 

Reference angle 1 

ANGLE 2 

REAL 

Reference angle 2 

ANGLE 3 

REAL 

Reference angle 3 

KX 

INTEGER 

Number of x grid points 

KY 

INTEGER 

Number of y grid points 

DLATLL 

REAL 

Lower left latitude 

DLONLL 

REAL 

Lower left longitude 

DLATUR 

REAL 

Upper right latitude 

DLONUR 

REAL 

Upper right longitude 


Output parameters: 

!RET INTEGER Return code 
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GSGRAF - Set Graph Coordinates 


This subroutine defines a coordinate system for P 1 <> 1 1 ing graphs . 
iii X and Y axis coordinate types are sped red ^ependently. 
The user may control the height to width ratio of the plot by 
setting the parameter YSZXSZ to a positive value. If YSZXSZ is 
not positive, the plot will fill the available space. 

For polar plots, X and Y are the distance and angle (R, THETA) 
respectively. YSZXSZ is ignored so that R wi 1 1 be equidis J. . 
in all directions. A centered plot with radius R may be defined 
by setting XL = R and YB = XR = YT = 0 . 


GSGRAF 


( IXTYP , IYTYP , YSZXSZ, XL, YB, XR, YT, IRET ) 


I npu t par ame t e r s : 

IXTYP INTEGER 


IYTYP 

INTEGER 

YSZXSZ 

REAL 

XL 

REAL 

YB 

REAL 

XR 

REAL 

YT 

REAL 


X coordinate type 

1 = linear 

2 = logarithmic 

3 - ** kappa (2/7) 

4 = skew 

5 = polar (R) 

Y coordinate type 

1 « linear 

2 - logar i thmi c 

3 - ** kappa (2/7) 

5 = polar (THETA) 

Height to width ratio of plot 

Left limit of X axis 

Bottom limit of Y axis 

Right limit of X axis 

Top limit of Y axis 


Output parameters: 

I RET INTEGER 


Return code 
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GSKY 


Plot Sky Coverage Symbols 


I^rH SUb ^ 0Utine dTaWS Sky covera ge symbols defined in any 
oordinate system. The sky coverage symbols will be drawn using 
attributes defined in GSSKY. using 


Note that this subroutine is not currently implemented. 
GSKY ( SYS, NP, SKYCD, X, Y, IXOFF, IYOFF, IRET ) 

Input parameters: 


SYS 

CHAR* 

NP 

INTEGER 

SKYCD (NP) 

REAL 

X (NP) 

REAL 

Y (NP) 

REAL 

IXOFF (NP) 

INTEGER 

IYOFF (NP) 

INTEGER 

Output parameters; 


IRET 

INTEGER 


Coordinate system 

’D’ = device coordinates 

’ N * ~ no rma lized coordinates 

’ V ’ = v i ew coordinates 

’P’ = plot coordinates 

’M’ = map coordinates 

’G’ ■ grid coordinates 


Number of sky coverage symbols 
Sky coverage numeric code 
X coordinates / latitudes 

Y coordinates / longitudes 

X offsets in half characters 

Y offsets in half characters 


Return code 
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GSLINE - Set Line Attributes 

This subroutine sets the line attributes including the line type 
number, the software/hardware line type flag, the line width, 
and the sof twa re /hardware line width flag. 

The line type is specified by a two-digit number. The units digit 
is the dash pattern; the tens digit is the scaling to be applied, 
with 2 as the default. The line dash patterns are: 

1 solid 

2 shor t dash 

3 med ium dash 

4 long dash, short dash 

5 long dash 

6 long dash, short dash, short dash, short dash 

7 1 ong dash, dot 

8 me d i um dash, dot, dot, dot 

9 short dash, dot 

10 dots 

GSLINE C ILTYP , ILTHW, IWIDTH, ILWHW, IRET ) 

Input parameters: 


ILTYP 

INTEGER 

Line type 

< =0 = no change 

ILTHW 

INTEGER 

Sw/hw line type flag 

1 = sof twa r e 

2 = hardware 
otherwise no change 

IWIDTH 

INTEGER 

Line width size multiplier 
<=0 = no change 

ILWHW 

INTEGER 

Sw/hw line width flag 

1 = sof twa r e 

2 = hardware 
otherwise no change 


Output parameters: 

IRET INTEGER Return code 
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GSLPAT - Set Line Pattern 


This subroutine sets the current line pattern to the given 
pattern. The current line type number will be set to zero, 
e values specified in the line pattern designate the length 

! rn v at | ng ° n and off se g m ents. For example, a long-dash 
short-dash line pattern could be specified by LPAT values of: 

10 5550000 


Y U1 di!pl * y * lin » for 10 units, space for 5 
pattern. Dol ", sp^n.ru.I^.^Hv.””^,^ ”L'“ ,h ‘ , 

corr ” pon<is «• «*• *» 


GSLPAT c LPAT, I RET ) 
Input parameters: 


LPAT (8) INTEGER 

Output parameters: 


Line pattern values 


I RET 


INTEGER Return code 
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GSMFIL - Set Map File 


This subroutine sets the name of the map f 1 * ? ^ , I" 0 £eck for 

If the map file cannot be found, the subroutine will check for 

jjj: 'lszi: wih *. 


The map files in GE\MAPS are 
map boundaries and area with 
For example, the medium poli 
MEPCKM3.GSF . 


named by concatenating the r 
the three letter source file 
tical world map from GSFC is 


esolution, 
type . 
called 


RESOLUT I ON BOUNDAR I E S AREA 


SOURCE 


High 

MEdium 

LOw 


POl i t i c a 1 
COa s 1 1 i ne 
REg i ona 1 


ANOrld GSFc 

NW quadrant Wisconsin 

NE quadrant 

SE quadrant 

SW quadrant 

US 

WE hemisphere 


GSMFIL ( MAPFIL, IRET ) 


Input parameters: 

MAJFIL CHAR* Map file name 


Output parameters: 

I RET INTEGER 


Return code 
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GSMMAP - Set Simple Map Projection 


This subroutine provides a simplified call for defining the map 
projection and bounds used for plotting in map coordinates. The 
angles necessary for defining these projections are based on the 
specified bounds. The following projections are valid: 

Cylindrical equidistant 
Modified cylindrical equidistant 
Me r c a t o r 

North polar stereographic 
South polar stereographic 

Lambert conic conformal ( Northern hemisphere ) 
Lambert conic conformal ( Southern hemisphere ) 
North Polar Orthographic 
South polar Orthographic 
Universal Transverse Mercator 

If the projection name is DEF , the current map or satellite 

projection will be used. In this case, the bounds specified will 
not be used. 

GSMvlAP ( PROJ , DLATLL , DLONLL , DLATUR , DLONUR , I RET ) 

Input parameters: 

PROJ CHAR* 

DLATLL REAL 

DLONLL REAL 

DLATUR REAL 

DLONUR REAL 

Output parameters: 

IRET INTEGER Return code 


Map projection 
Lower left latitude 
Lower left longitude 
Upper right latitude 
Upper right longitude 


CED 

MCD 

MER 

NPS 

SPS 

LCC 

SCC 

NOR 

SOR 

UTM 
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GSMMGN - Set Map Margins 


This subroutine sets the margin size to be used in map mode. The 
margin sizes may be specified as either a fraction of the view 
region or as a mu ltiple of the current character size. If the 
values entered are greater than 0.0 and less than 1.0, they are 
considered to be a fraction of the view region. If the values are 
1.0 or greater, they are taken to be mu ltiples of the character 
size at the time of the call to GSMMGN. The default margin size 
is zero. 

GSMMGN should be called before any plotting is done; margin 
size should not be changed after plotting has begun. If size 
is specified in terms of character size, the size at the time 
of the call is used. Later changes to the text size will not 
affect the ma r g i n s . 


GSGMGN ( XL, YB, XR, YT, 


Input parameters: 


XL 

REAL 

YB 

REAL 

XR 

REAL 

YT 

REAL 


Ou t pu t par ame t e r s : 

I RET INTEGER 


I RET ) 

Left ma rgin size 
B o 1 1 om ma rgin size 
Right margin size 
Top ma r g in size 

Return code 
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GSMODE - Set Map/ graph Mode 

This subroutine sets the ploting mode for map/ graph coordinate 
plotting. It may be used to change mode within programs. 

GSMODE ( MODE, I RET ) 

Input parameters: 

MODE INTEGER Plotting mode 

0 = no change 

1 = ma p coordinates 

2 = graph coordinates 

Output parameters: 

IRET INTEGER Return code 
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GSMPRJ - Set Full Map Projection 


This subroutine provide, a general way to ‘ ^ 

and bounds to be used when plo tt ing in map rather than map 

subroutine now uses a char a c t e r pr oj pro j e ction names are: 

class and projection numbers. The valid projecno 


CLASS PROJ 


PROJECTION 


Cyl indr i cal 


CED 

MER 

MCD 


Cylindrical equidistant 
Me r c a t o r 

Modified cylind. equidistant 


Azimuthal AED 

STR 

ORT 

LEA 

GNO 


Azimuthal equidistant 
Stereographic 
Orthographic 
Lambert equal area 
Gnomon i c 


Con i c a 1 LCC 

SCC 


North Lambert conic conformal 

South Lambert conic conformal 


Oblique Mercator 


TVM 

UTM 


Transverse Me rcator 
Universal Transverse Mercator 


For the UTM projection, the tangential longitude 
a standard longitude by rounding down to .... 


is adjusted 

-3, 3, 9, 


t o 


The angles are defined 
Cylindrical 


for the various map classes. 

No angles needed; polon is set to midway 
between DLONLL and DLONUR. 


Az imu tha 1 


Coni cal 


Oblique 


anglel -- polat (the pole latitude; must 
be +90. or -90.) 

ang 1 e2 -- polon (the central longitude) 
ang 1 e 3 — not used 

anglel -- latitude 1 . \ 

ang 1 e2 -- polon (the central longitude) 

ang 1 e3 -- latitude 2 

anglel -- tangential longitude 
angle2 -- not used 
ang 1 e3 — not used 


Azimuthal and conic projections which inciude the ^ 

DLATLL^ a n d DLATOR^re equalTnd DLONLL. 11 and ^DLONUR are also equal, 
a^Ip arfa wif^be defined which includes the area from the pole 
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to the given latitude 
1 ong i tude . 


in each direction with DLONLL as 


GSMPRJ 


^ . ANGLE 2 , ANGLE 3 , DLATLL, DLONLL 

DLATUR, DLATUR, DLONUR, I RET ) 


Input parameters: 


PROJ 

CHAR* 

Map projection name 

ANGLE 1 

REAL 

Reference angle 1 

ANGLE 2 

REAL 

Reference angle 2 

ANGLE 3 

REAL 

Reference angle 3 

DLATLL 

REAL 

Lower left latitude 

DLONLL 

REAL 

Lower left longitude 

DLATUR 

REAL 

Upper right latitude 

DLONUR 

REAL 

Up per right longitude 

Output parameters 

5 


IRET 

INTEGER 

Re turn code 


the central 
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GSMRKR - Set Marker Attributes 


This subroutine sets the marker attributes 
number, the hardware/software flag and the 
mu ltipliers. 


including the marker 
marker size/width 


NOTE THAT THE CALLING SEQUENCE FOR THIS SUBROUTINE HAS CHANGED FROM 
PREVIOUS VERSIONS OF GEMPAK. 


GSMRKR ( IMARK, IMHMV, SZMARK, IMKWID, I RET ) 


Input parameters: 


IMARK INTEGER 


Marker number 

<=0 = no change 


IMMHW 


SZMARK 

IMKWID 


INTEGER 


REAL 

INTEGER 


Sw/hw marker flag 

1 = s o f twa r e 

2 = hardware 

Marker size multiplier 

Marke r 1 ine wi dth 
<= 0 = no change 


Output parameters: 

I RET INTEGER 


Return code 
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GSPTND 


Set Pressure Tendency Attributes 


width! Ubr ° Ut inC SCtS tlie P ressur e tendency symbols size and line 

Note that this subroutine is not currently implemented. 

GSPTND ( SZPTND, IPTWID, IRET ) 

Input parameters: 


SZPTND 


IPTWID 


REAL 


INTEGER 


Output parameters: 


IRET 


INTEGER 


Pressure tendency symbol size 
<=0 = no change 

Pressure tendency line width 
<=0 = no change 

Return code 
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GSPWTH - Set Past Weather Attributes 

This subroutine sets the past weather symbol size and line width 
Note that this subroutine is not currently implemented. 

GSPWTH ( SZPWIH, IPWVID, IRET ) 

Input parameters: 

SZPWTH REAL Past weather symbol size 

<=0 = no change 

IPWWID INTEGER Past weather line width 

<=0 = no change 

Ou t pu t par ame t e r s : 

IRET INTEGER Return code 
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GSSKY - Set Sky Coverage Attributes 

This subroutine sets the sky coverage symbol size, line width and 
the symbol type. 

Note that this subroutine is not currently implemented. 

GSSKY ( SZSKY, I SKTYP , ISKWID, IRET ) 

Input parameters: 

SZSKY REAL 

I SKTYP INTEGER 

ISKWID INTEGER 

Output parameters: 

IRET INTEGER 


Sky coverage size multiplier 
<=0 = no change 

Sky coverage symbol type 

1 = no t filled in 

2 = filled in 

Sky coverage line width 
<=0 = no change 

Return code 
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GSTEXT - Set Text Attributes 


This subroutine sets the text attributes including the font number 
the text software/hardware flag, and the text size/width 
mu ltipliers . 

NOTE THAT THE CALLING SEQUENCE OF THIS SUBROUTINE HAS CHANGED FROM 
PREVIOUS VERSIONS OF GEMPAK. 

GSTEXT ( ITXFN , ITXHW, SZTEXT, ITXWID, I RET ) 


Input parameters: 

ITXFN INTEGER 

ITXHV INTEGER 

SZTEXT REAL 

ITXWID INTEGER 

Output parameters: 


Text font 

< =0 = no change 

Text sw/hw flag 

1 = s o f twa r e 

2 = hardware 
otherwise no change 

Text size multiplier 
<=0 = no change 

Text line width 
< =0 = no change 


Return 


code 


I RET 


INTEGER 
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GSTICK - Set Tick Attributes 


This subroutine sets the tick attributes including the tick 
and size. 


GSTICK ( ITKTYP , SZTICK, IRET ) 
Input parameters: 


ITKTYP INTEGER 


Tick type 

0 - no change 

1 - ma j o r tick 

2 - ma j o r tick 

3 -minor tick 

4 = minor tick 

5 - ma j o r tick 

6 -minor tick 


outside 
inside 
outside 
inside 
out and 
out and 


SZTICK REAL 


Tick size multiplier 


Output par ame t e r s : 


IRET 


INTEGER Return code 


type 


inside 

inside 
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GSTRML - Draw Streamlines 


This subroutine draws streamlines through . J^'tL 

f ■ , J Streamlines will be computed for a subgrid witn me 

1 owe r * 1 e f t corner at ( IMINX , JMINY) and the upper right corner^ 
at (IMAXX, JMAXY) . The maximum number of points graph 

is 8000. A grid coordinate transformation and a map^i grap 
coordinate transformation must be defined befo 
called. The current line and arrow attributes apply 
streamlines. This subroutine is an adaptation of the NC 
streamline subroutine STRMLN. 

GSTRML C KX, KY , U, V, IMINX, 


JMINY. IMAXX, JMAXY, MISFLG, IRET ) 


Input parameters: 


KX 

INTEGER 

KY 

INTEGER 

U CKX.KY) 

REAL 

V (KX.KY) 

REAL 

IMINX 

INTEGER 

JMINY 

INTEGER 

IMAXX 

INTEGER 

JMAXY 

INTEGER 

MI SFLG 

LOGICAL 

Output par ame t e r s 

: 

IRET 

INTEGER 


Number of x grid points 
Number of y grid points 
U - c omp onent grid 
V - c omp onent grid 
First x point of subgrid 

First y point of subgrid 

Last x point of subgrid 

Last y point of subgrid 

Interpolate missing data flag 

Return code 
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GSVIEW - Set View Region 


This subroutine sets the boundaries of the view region to be used 
It Th ' Vi ' W r ^ io ” is »P=«ifi«d g u°ing^ frlcUoL 

• ' f v orner ° f a., !.) ifihe ip P ; r 

orner of the device. For example i ® 

CALL GSVIEW ( .5, .5, 1., 1., ire t ) 

will display plots in the upper right quadrant of the device. 

Note that the fractions describing the view region are not eoual 
to coordinate values, except for a square device. * 

GSVIEW ( XLLF , YLLF , XURF , YURF , IRET ) 

Input parameters: 


XLLF 

REAL 

YLLF 

REAL 

XURF 

REAL 

YURF 

REAL 

Output 

parameters : 

IRET 

INTEGER 


Lower left x fraction 
Lower left y fraction 
Upper right x fraction 
Upper right y fraction 

Return code 
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GSWTHR - Set Weather Symbol Attributes 

This subroutine sets the weather symbol size and line 
GSWTHR ( SZWTHR , IWTWID, I RET ) 

Input parameters: 

SZWTHR REAL Weather symbol size 

<=0 = no change 

IWTWID INTEGER Weather symbol line 

< = 0 = no change 

Ou t pu t par ame t e r s : 

IRET INTEGER Return code 


wi d t h . 


wi d th 
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GTEXT - Plot Text 


This subroutine plots text starting at a point defined in any 
coordinate system. The point determines the center of the 
first character. The text string ma y be rotated fr om 
horizontal at the reference point and offset along the rotated 
X and Y coordinates. Positive X offsets are toward the right; 
positive Y offsets are toward the top. The text will be drawn 
using attributes defined in GS TEXT . 

GTEXT C SYS, XPT , YPT , CCHAR , ROTAT, IXOFF, IYOFF . I RET ) 


Input parameters: 


SYS 

CHAR* 

XPT 

REAL 

YPT 

REAL 

CCHAR 

CHAR* 

ROTAT 

REAL 

IXOFF 

INTEGER 

IYOFF 

INTEGER 

Output parameters: 


IRET 

INTEGER 


Coordinate system 

’D’ - device coordinates 

* normalized coordinates 
’ V ’ - v i ew coordinates 

* plot coordinates 
'M* * map coordinates 
’G* - grid coordinates 

X coordinate / latitude 

Y coordinate / longitude 
Text 

Rotation angle in degrees 
X offset in half characters 

Y offset in half characters 


Return code 
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GTRANS - Transform Points To New Coordinates 


This subroutine transforms an array of points in any input 
coordinate system into the specified output coordinate system. 
In the ’M’ coordinate system, X represents latitude, and Y 
represents longitude. 

GTRANS ( SYSIN, SYSOUT, NP , XIN, YIN, XOUT, YOUT, IRET ) 


Input parameters: 

SYSIN CHAR* 


SYSOUT CHAR* 


NP INTEGER 

XIN (NP) REAL 

YIN (NP) REAL 


Output par ame t e r s : 

XOUT (NP) REAL 

YOUT (NP) REAL 

IRET INTEGER 


Input coordinate system 
’D* = device coordinates 
’N’ - normalized coordinates 

’ V ’ = v i ew coordinates 

’ p ’ = plot coordinates 

’M’ = map coordinates 

’G’ = grid coordinates 

Output coordinate system 
’D’ = device coordinates 

’N’ = normalized coordinates 

* V ’ = v i ew coordinates 

’P’ - plot coordinates 

’ M ’ = ma p coordinates 

’G’ = grid coordinates 

Number of points 

X input coordinates/latitudes 

Y input c o o r d i na t e s / 1 ong i t ud e s 


X output coordinates/latitudes 
Y output c oor d i na t e s / 1 ong i tud e s 
Return code 
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GWTHR - Plot Weather Symbols 


This subroutine draws weather symbols defined in 
system. The weather symbols will be drawn using 
defined in GSWTHR . 


any coordinate 
attributes 


CWTHR ( SYS, NP, WTCOD, X, Y, IXOFF, IYOFF , IRET ) 
Input parameters: 


SYS 

CHAR* 

Coordinate system 

’D’ = device coordinates 
’N’ = normalized coordinat 
’ V ’ = view coordinates 
*P’ = plot coordinates 
= map coordinates 
’G’ = grid coordinates 

NP 

INTEGER 

Number of weather symbols 

WTCOD (NP) 

REAL 

Weather numeric code 

X (NP) 

REAL 

X coordinates / latitudes 

Y (NP) 

REAL 

Y coordinates / longitudes 

IXOFF (NP) 

INTEGER 

X offsets in half characters 

IYOFF (NP) 

INTEGER 

Y offsets in half characters 

Output parameters: 



IRET 

INTEGER 

Return code 
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WRITING DEVICE DRIVERS 


This section describes the procedure for writing a new GEMPLT 
device driver. It assumes the programmer will use the dummy 
device driver, GN. In many cases, however, it will be easier to 
start wi th an existing device driver wr itten for a device wh i c h is 
similar to the programmer’s device. For example, the BL device 
driver is a pen plotter driver which writes output to an 
intermediate plot file and can be used to create a driver for 
different brand pen plotter. 

To begin, create a device driver subdirectory and copy all the 
files in the GN library into it. Delete the .OLB file. Rename 
GN .COM to XX . COM and GN.SUB to XX. SUB where XX i s the two letter 
identifier for the driver to be written. Edit these two files, 
replacing references to GN with XX. 

All of the FORTRAN subroutines must be rewritten for the specific 
device. If certain har dwa re capabilities are not available, the 
subroutines need not be changed from the GN versions. A guide to 
changing these subroutines follows. 


INITIALIZATION AND TERMINATION SUBROUTINES 


HINIT 


HINITD 


HINIT defines the characteristics of the device to 
GEMPLT. Each of the assignment statements should be 
edited. This subroutine is called once when the 
device driver is installed. 

HINITD contains device-dependent initialization values. 
It is called once wh en the device driver is installed. 
Intermediate plot file names, a flag indicating that the 
file is not open, hardware sizes in device units and 
other device-specific parameters are assigned here and 
saved in DEVICE . CMN . A typical DEVICE. CMN is included 
in each device driver. Any specific initialization 
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HINITP 


HOPEN 


HENDD 


commands for the graphics device are included here. 

HINITP is called each time the user calls GINITP at 
the start of each program. Generally, this subroutine 
does nothing. Occasionally, some devi c e -dependent 
functions must be performed at the start of each program 
in addition to functions performed when the device 
driver is started. 

HOPEN is used, when necessary, to open intermediate plot 
files. The other H subroutines should check the open 
file flag when they are ready to add plotting information 
to the file. If the file is not open, this subroutine 
is called. If no intermediate plot file is to be used, 
the subroutine will do nothing. 

HENDD is called wh e n e v e r GENDP is called or a n ew device 
is requested. Unless some special functions are to be 
performed at the end of each applications program, this 
subroutine will not do anything if IEOP « 0, i.e., the 

device driver task is to be retained. When IEOP = 1, 
the device driver is requested to exit and some special 
action may have to be taken. 


REQUIRED SUBROUTINE TO DRAW LINES 

HLINE - HLINE must be written in each device driver. This is 

the subroutine that actually draws lines on the graphics 
device. If it is necessary to rasterize the lines being 
drawn, both the II and LA device drivers provide examples 
of such code . 


DEVICE CONTROL SUBROUTINES 


HEPLOT - HEPLOT can be used to return a terminal from graphics to 
text mo d e . 


HFLUSH 


HCLEAR 


HCLOSP 


HFLUSH will cause any buffers internal to the device 
driver process to be flushed. These are buffers which 
are filled by H level subroutines. 

HCLEAR causes the screen on direct access devices to be 
cleared. On continuous feed paper devices, a form feed 
should be issued. On single sheet paper devices, the 
plotter should pause for the user to load a n ew piece of 
paper. 

HCLOSP closes the intermediate plot file, if any, and 
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HOUTP 


resets 

opened 


the open flag to false. A new file should 
until plotting commands are received. 


HOUTP sends output stored in an intermediate plot 
to the device. 


no t be 


file 


WRITE HARDWARE SYMBOLS 


HMARK 


HMARK is called to write hardware markers to the device. 
If hardware markers are not to be implemented, this 
subroutine will do nothing. 


HTEXT 


HTEXT is called to write hardware text to the device 
If hardware text is not to be implemented, this 
subroutine will do nothing. 


SET HARDWARE ATTRIBUTES 


HSLTYP 


HSLWID 


HSMRKR 


HSTEXT 


[SLTYP saves the necessary information in DRIVER.CMN to 
se hardware line types. If hardware line types are not 


be implemented, thi 


snhr mi tine does nothing 


HSLWID sets the hardware graphics line width 
hardware line width is not implemented, this 
doe s nothing . 


If 

subrout ine 


HSMRKR saves the necessary information in DRIVER.CMN to 
use hardware markers. If hardware markers are not 
implemented, this subroutine does nothing. 


HSTEXT saves the necessary information in DRIVER.CMN to 
use hardware text. If hardware text is not implemented, 
this subroutine does nothing. 


COLOR SUBROUTINES 


HSCOLR 

HSCRGB 


HSCINT 


HSCOLR sets a new color number on color devices. On a 
monochromatic device, this subroutine does nothing. 


ISCRGB sets the color components of a graphics plane 
isine red, green and blue color components. These values 
*h\l ik the range 0 - 1, and may need to be scaled to 

i different range. 

1SCINT initializes the colors on a color graphics device 
to some default colors. It is used only on color devices 
)n which color components can be changed. It shou 
specify a default color for each number. 
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GRAPHICS SAVE /RE STORE FUNCTIONS 


HSAVE 

HREST 


HSAVE saves the graphics planes in a file using the 
readback function of the terminal, if available. 

HREST restores the graphics planes to the terminal from 
a file saved using HSAVE. 


fter all the H level subroutines have been written, they should be 
compiled and added to an object library called XX.OLB. The command 
procedure BLDLIB may be used to compile the subroutines and add them 
to the library. Enter the following command from DCL : 

BLDL I B 

Answer the questions as follows: 

[] 

XX 

After the library is created, link the device driver using the 

c nmm si n H • & 


@xx 

The command f iie will link the H-level subroutines just written with 

t l? C / riVer COdC ( the °- level subroutines ) which are 
common to all devices. Note that control of the device driver and 

ii theV^vTr 6 £ unctlons - along with line clipping, are performed 
!o subroutines. None of these subroutines should have 

to be mo dified for a particular device. 

The executable module produced by ©XX wi 1 1 be put in GEMEXE 
which is where all the GEMPLT executable files are fouiu^ The 

ATEST^ W Thi«° tCSt the .f evice driver is to run the test program, 
A1EST . This program allows the user to enter GEMPLT subroutine 
names, executing the functions one at a time. Set the device 

usin 2 GSDEV and test each function individually, by drawing 
1 ne markers, etc. Don’t forget that GPLT wi 1 1 buffer many 2 
plotting commands. Call GEPLOT to send output to the device 
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SOFTWARE LIBRARIES 


The GEMPLT software commands are executed in two tnit?* i s* ca 1 1 ed 
first orocess GPLT , is created the first t ime GINITP is called 
during a session. The second process is a device driver 
is created when GSDEV is called. These * ™ c *** 
the program which initiated them exits and are then used 

programs making GEMPLT calls. 

Because the GPLT subprocess is independent of the fo^each 1011 
program requesting GEMPLT, the calling parameters for each 

sub 8 rouUne q call are put in a mailbox that is stowing steps 
process. Thus, information is passed in the follow g P 


The 


DD , wh i c h 
active after 
by later 


App 1 i c a t i on 
P r o g r am 

Similarly, GPLT 


> G 

Ma i 1 b o x 


> GPLT 
Proce s s 


passes requests to the device driver. 


GPLT 
Proce s s 


> D 

Ma i 1 b o x 


DD 

Process 


The application program must be linked with ^ough the 

Ub r b ry \f^LT AP GPLT ^uLISTiTub GEMOLB : GPLT .* Each 
r;l b rd“ve PL Iu St G be T lU,ei wLb the device cod. which resides 
in GEMOLB: DEVICE. 
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The following example traces 
GLINE to draw line segments. 

a call f r om an application progr am t o 

SUBROUTINE 

LIBRARY 

PROCESS 

FUNCTION 

GLINE 

GEMOLB : APPL 

APPLICATION 

Pass request to G 

GLINE 

GEMOLB :GPLT 

GPLT 

ma i 1 box 

Transform points to 

DUNE 

GEMOLB : GPLT 

GPLT 

device coordinates 
Pass request to D 

DLINE 

GEMOLB: DEVICE 

DD 

ma i 1 box 

Control clipping, 

HLINE 

DD 

DD 

dashing , ... 

Draw line segments 




on graphics device 

If desired, the application program can be 
This will eliminate the GPLT subprocess and 
need to be initialized in each program, and 
one program will not be remembered in later 

linked with GEMOLB: GPLT 
mailbox, but GPLT wi 1 1 
information defined in 
programs . 

Simi larly , 
subr ou tines 
supported i 

GEMOLB :DEVICE can replace the ca 
in GEMOLB: GPLT . In this case 
n a linked, executable module. 

11s to the D-level 
only one device can be 
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CREATING MAP FILES 


GEMPAK MAP FILES 


GEMPAK map files are stored as direct 
a GEMPAK Standard Format (GSF ) . This 
and relatively rapid access. 


access, packed binary files in 
form was chosen for compactness 


In addition a Sequential Standard Format (SSF) is defined for storing 
maps Is Ascii sequential files. SSF files at, used to create new maps . 
edit existing map files and transfer map files to non-VMS computer 

c . aqptt files they may be created or changed 

systems. Since these are AbUii tues, mcjf mpat? 

using a text editor. The SSF files use the same format as the NCAR 
sequential map file. 

In both the GSF and SSF formats, latitude and longitude ^re given in 
degrees. West longitude is negative; all longitudes must be between 
-180 and +180 degrees. No map segment should 
Date Line. 


cross the International 


FORMAT OF THE SSF FILE: 


An SSF file contains map segments, each of which has 
latitude / longitude points to be connected when the 
Each segment contains the following information: 


a series of 
ma p is dr awn 


NP2 

RMXLT 

RMNLT 

RMXLN 

RMNLN 

PTS (NP2 ) 


INTEGER 

REAL 

REAL 

REAL 

REAL 

REAL 


Number of points (np) * 2 
Maximum latitude in segment 
Minimum latitude in segment 
Maximum longitude in segment 
Minimum longitude in segment 
LAT1 LON1 . . . LATnp LONnp 


These segments are written and read with the FORTRAN format statment: 
FORMAT C 14, 14X , 6F9.3, 8X, / C 8F9 . 3 , 8X ) ) 
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The maximum number of points which 
is 3000. 


may be contained in any segment 


FORMAT OF THE GSF FILE: 


These files are direct access file with a recordsize of 128 words. 

The data is wr itten in blocks of two records or 256 wo rds . Th e first 
block is the file header, followed by data blocks. Map segments are 
packed into the data blocks; no map segment spans blocks. 

The file header has 181 INTEGER *2 words containing: 


NMBLK 

LATPTR1 

LATPTR2 


INTEGER *2 Total number of blocks 
INTEGER* 2 Latitude pointer for 90 degrees 

INTEGER *2 Latitude pointer for 89 degrees 


LATPTR1 80 INTEGER *2 Latitude pointer for -89 degrees 

The GSF files are sorted by maximum latitude. The LATPTR array 
contains the first block to use given the maximum latitude on the 


These INTEGER* 2 values may be changed to INTEGER *4 if required. 
However, the changes must be made in the programs GSFSSF and SSFGSF 

escribed below, as well as in GDRMAP which is the GEMPLT subroutine 
used to dr aw ma p s . 


The data blocks contain only 4-byte integer or real words, 
data block contains: 


Each 


NMSEG 

INTEGER 

NP1 

INTEGER 

RMNLT1 

REAL 

RMNLN1 

REAL 

RMXLT1 

REAL 

RMXLN1 

REAL 

RLAT1 (1) 

REAL 

RLON1 (1) 

REAL 


Number of segments 
Unused 

Number of points in segment 1 

Minimum latitude 

Minimum longitude 

Maximum latitude 

Maximum longitude 

Unused 

Latitude of point 1 
Longitude of point 1 


RLAT1 (npl) REAL 
RLON1 (npl) REAL 
NP2 INTEGER 

RMNLT1 REAL 


Latitude of point npl 
Longitude of point npl 
Number of points in segment 2 
Minimum latitude 
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CONVERTING A GSF TO AN SSF FILE: 


The program GSFSSF, which is 
any GSF file to an SSF file. 
GSF file name and a name for 


in GEMMAPS, can be used to convert 
Th e user is pr omp ted for the existing 
the SSF file to be created. 


CONVERTING AN SSF FILE TO A GSF FILE: 

The program SSFGSF, also in GEMMAPS, can be used to convert an SSF 
file to a GSF file. The user is prompted for the existing SSF file 
name and a name for the GSF file to be created. The user can also 
enter a latitude / longitude window to subset the data. Any points 
outside the window will be eliminated from the output file. However, 
no clipping is done. The minimum and maximum latitude and longitude 
stored with each segment will be recomputed internally, so the 
values in the SSF file need not be correct. The intermediate files, 
DAFIL.INT and SEQFIL . I NT, are used by the program and may be deleted 
after c omp 1 e t i o n . 


NAMING CONVENTIONS FOR GEMPAK MAP FILES: 

The map files are named by concatenating the resolution, map 
boundaries, and area with the three-letter source file type. For 
example, the medium- resolut i on political world map from GSFC is 
called MEPCKWD.GSF 


RESOLUTION 

BOUNDARIES 

AREA 

SOURCE 

High 

MEdium 

LOw 

POl i t i ca 1 
COas 1 1 ine 
REg i ona 1 
CouNty 

WOr 1 d 

NW quadrant 
NE quadrant 
SE quadrant 
SW quadrant 
WEst hemisphere 
North Hemisphere 
South Hemisphere 
US 

Ma ry 1 anD 

GSF c 

Wisconsin 

The maps from Goddard were obtained for GEMPAK Version 1.0. The 
history of these maps is unknown. The maps from the University of 
Wisconsin were digitized there. 
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GEMPLT ERROR MESSAGES 


Following 1. . list of the .. rr of «... . ages .v.l l.bl . * . « « JJ 

the GEMPLT error message subroutine. The list inciu 

number, the mnemonic code used internally by GEMPLT and the 

me s s a g e . 

This is the GEMPLT error file. 

The file must have the error number in the first four columns. 
The message to be printed is found after the 1. 


0 ! NORMAL - 

-1 ! NMBRER - 

-2 ! NMBWER - 

-3 ! NEXQUO - 

-4 l NFNCCD - 

-5 1 NOMFIL - 

-6 1 NOCORD - 

-7 1 NOBUFF - 

-8 l NDVICE - 

-9 ! NDCHAR - 

-10 1 NIVIEW - 

-11 ! NOLUN - 

-12 ! NIMODE - 

-13 1 NINVAL - 

-14 1 NOGRAF - 

-15 ! NIPROJ - 

-16 1 NIPBND - 

-17 1 NIPOSN - 

-18 ! NIGDSZ ■ 

-19 1 NOPFIL 

-20 ! NGINIT 

- 2 1 ! NODEVC 

-22 1 NICOLR 

-23 1 NOCOLR 

-24 1 NOCTBL 

-25 1 NICNUM 


Normal . 

Mailbox read. 

Mai lbox write. 

Ex c e ed quo t a . 

Invalid function code. 

Invalid map file defined -- default used 
Invalid coordinate system. 

G buffer length exceeded. 

Dev ice not set. 

No device characteristics. 

Invalid view region. 

Invalid logical unit number. 

Inva lid mode . 

Invalid input parameter* 

No graph defined. 

Invalid projection specified. 

Invalid projection bounds. 

Invalid position in projection. 

Invalid grid size. 

No plot f i le . 

GINITP has not been initialized. 

Invalid device selected. 

Invalid color n ame selected. 

Color component cannot be set. 

No color table. 

Invalid color number. 
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-26 

-27 

-28 

-29 

-30 

-31 

-32 

-33 

-34 

-35 

-36 

-37 

-101 

-102 

-103 

-104 

-105 

-106 


! NOGFIL 
! NSATNV 
! NOPNTS 
! NIPNTS 
! NOMONO 
1 NO IMG F 
! NONAVF 
! NOMAP P 
! NOBNDS 
! NMAPFR 
! NLBLEX 
! NILOGP 
i NOPROC 
! NSYSTM 
! NSTRER 
1 NNODEV 
! NDEVNA 
! NNOOWN 


No graphics file. 

Satellite navigation not defined. 

Too few points to fit curve. 

Too many points to fit curve. 

Points are not monotonic. 

Invalid satellite ima g e file. 

Invalid satellite navigation file. 

No plotable points in map file. 

No grids points in graphics area. 

Ma p file read error. 

Number of label positions exceeds 50. 
Invalid LOG axis defined. 

Nonexistent executable. 

System service error. 

String error. 

Nonexistent device. 

Device is not allocated. 

Device allocated by another process. 
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APPENDIX D 

CHANGES FROM GEMPAK4 TO GEMPAK5 


appendix documents the changes from GEMPAK4 to GEMPAK5 . 
of the major changes include: 

- The contouring and streamline packages have been rewritten 


- Improvements have been made to the map and grid , \ 

transformations when the pole or International Date Line ( 
i s included in the display or grid area. 


- Line dashing patterns have been expanded to include scaling 
and the use of dots. 


- Plotting of weather symbols has been added. Subroutines to 
plot cloud type, sky coverage, pressure tendency and past 
weather have been defined but not implemented. 


- The width for text, wind arrows, barbs, markers 
symbols can be set. A size parameter for wind 
has been added . 


and weather 
a r r ow heads 


_ county map for the US has been added. 

- GDRGRD , which draws latitude / longitude lines, has been 
improved, e s p e c i a 1 1 y when plotting across the IDL. 

- The tick mark subroutines have been changed and labelling 
graphs has been improved. 

- Spurious lines have been removed from map files. 

- A default map file is used if an invalid map file is 
specified. 

- Clipping has been added to hardware text and marker 
generation. 
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- GKS device driver has been added. 

- Additional grid lines are plotted on Skew - T plots. 

- A type has been added to wind barb and arrow specific 
Setting the arrow type to 2 will prevent plotting of 
(wind speed — 0) winds. 


The call i ng 
changed fr om 

sequences of 
GEMPAK4 : 

the following subrout 

GCONTR 

• 

MISLBL 

has been deleted 

GQARRW 


SZARRH, 

IARWID, IARTYP added 

GQBARB 


IBRWID, 

IBRTYP added 

GSARRW 


SZARRH, 

IARWID, IARTYP added 

GSBARB 


IBRWID, 

IBRTYP added 

GSMRKR 


IMKWID 

added 

GSTEXT 


ITXWID 

added 

GQLPAT 

• 

ILTYP i 

s no longer an input 


The meanings of some parameters in the calling sequence have 
been changed : 

GAAXIS and GDAXIS : LBFRQ , MTFRQ and LGFRQ refer to the 

frequency rather than the start and 
frequency c omb i n e d . 


The following subroutines are new: 

GWTHR 

GQWTHR 

GSWTHR 

GSTICK 


The following subroutines are new but are not implemented: 


GCTYP 

GQCTYP 

GSCTYP 


GPTND 

GQPTND 

GSPTND 


GPWTH 

GQPWTH 

GSPWTH 


GSKY 

GQSKY 

GSSKY 


a t i on . 
calm 
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The following subroutine has been deleted: 

GSMCON 
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APPENDIX E 
EXAMPLES 


of the use of GEMPLT 


This appendix contains a few simple examples 
subroutines to create map and graph output. These samp e programs 
do not check for non-zero return codes. Real programs should che 
for non-zero return codes using GERROR and take the appropriate 


actions. 
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EXAMPLE 1: Draw a mercator map of the continental United States. 


C- 

C* 


c* 


c* 


c* 


c* 

c* 


c* 

c* 


PROGRAM MAP 

CHARACTER device*2, cprj *3 

Initialize GEMPLT . Set the mode to map coordinates, 
mode = 1 

CALL GINITP ( mode, istat, iret ) 

Set the device to a VT100 Re t ro -g r aphi c s terminal. 

device = ’ VT ’ 
i un i t = 0 

CALL GSDEV ( device, iunit, iret ) 

Set the map projection for mercator map of the US. 

cprj = ’MER’ 
dlats = 25. 

d 1 o nw = -125. 
d 1 a tn = 50 . 

dlone - -65. 

CALL GSMMAP ( cprj, dlats, dlonw, dlatn, dlone, iret ) 
Draw the map. 

CALL GDRMAP ( iret ) 

End the GEMPLT plotting session. Do not retain the 
GEMPLT subprocess. 

i e op = 1 

CALL GENDP ( ieop, iret ) 

Exit the program. 

END 
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EXAMPLE 2: Draw a cartesian graph. 


C 

C* 


c* 

c* 


c* 

c* 


c* 

c* 

c* 

c* 


c 

c* 

c* 

c* 

c* 


PROGRAM GRAPH 


CHARACTER device *2 

REAL xaxis (10), yaxis 

LOGICAL lax is 


(10), xpts (20), ypts (20) 


Initialize GEMPLT . Set the mode to graph coordinates. 


mode ** 2 

CALL GINITP ( mode, istat, iret ) 

Set the device to a Bausch and Lomb pen plotter. The 
intermediate plot file is automatically opened. 

device = ’ BL ’ 
i un it =0 

CALL GSDEV ( device, iunit, iret ) 

Set the graph margins on the bottom to be twice the 
height of the character size. 

xl = 0 . 
yb = 2 . 
x r = 0 . 
y t = 0 . 

CALL GSGMGN ( xl, yb, xr, yt, iret ) 

Set the X and Y axis to linear coordinates with limits 
along each axis from 0 to 100. YSZXSZ set to 1. will 
make the plotting area square. 

ixtyp = 1 
iytyp = 1 
yszxsz = 1. 
xlm =0. 
y bm = 0 . 
x rm = 100. 
y tm = 100. 

CALL GSGRAF ( ixtyp, iytyp, yszxsz, xlm, ybm, xrm, ytm, 

iret ) 

Draw the X axis with labels below the line, intercepting 
the Y axis at the point Y = 0., with tick marks and 
labeling frequency of every other point. The labels 
will be integer numbers and no grid lines will be drawn. 
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C* 

C* 

c* 

c* 


c* 

c* 

c* 

c* 

c* 


i ax i s - 1 
axpos “ 0. 
laxis - .true, 
lbstfq - 102 
mtstfq = 102 
lgstfq = 0 
ndec = 0 
np =10 

Fill the X axis coordinate array. 

DO i = 1 , np 

xaxis (i) = 10. * i 

END DO 

CALL GDAXIS C iaxis, axpos, laxis, lbstfq, mtstfq, 
lgstfq, ndec, np , xaxis, iret ) 

Now draw the Y axis with labels to the left of the line. 
The Y axis will intercept the X axis at the point X = 0. 
Label and tick every point along the Y axis with integer 
labels. No grid lines will be drawn. 

iaxis = 2 
axpos = 0. 
laxis = .true, 
lbstfq = 101 
mt stfq = 101 
lgstfq = 0 
ndec = 0 
np =10 

Fill the Y axis coordinate array. 

DO i = 1 , np 

yaxis (i) - 10. * i 
END DO 

CALL GDAXIS ( iaxis, axpos, laxis, lbstfq, mtstfq, 
lgstfq, ndec, np , yaxis, iret ) 

Draw the array of points on the graph. 

The arrays XPTS and YPTS in a real program would be 
filled with the your data. 

’M’ indicates the x,y points are in units of the map 
coordinate system defined by GSGRAF . 

npts = 20 

CALL GLINE ( ’M* , npts, xpts, ypts, iret ) 
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C* Close the plot file and send it to the Bausch and Lomb 

C* pen plotter . 

CALL GOUTP ( i r e t ) 

C* End the GEMPLT plotting session. Do not retain the 

C* GEMPLT subprocess. 

i e op = 1 

CALL GENDP C ieop, iret ) 

C* Exit the program. 

END 
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